home *** CD-ROM | disk | FTP | other *** search
/ Macademic for Students & Teachers / Macademic for Students and Teachers (Quantum Leap)(1992).iso / Fun & Games / CoreWar / vampire < prev    next >
Text File  |  1985-05-18  |  865b  |  40 lines

  1. *
  2. * Vampire -- seek out the enemy, drain the
  3. * life out of him, and then erase him in his
  4. * weakened condition
  5. *
  6. @-230
  7. nprc  dat 500  The number of dummy processes
  8. *              that the enemy will be forced
  9. *              to make.
  10. spin  spl 0
  11.       djz 2,nprc
  12. trap  jmp -1
  13. *
  14.       mov null,trap
  15.       mov #0,spin
  16. null  jmp 0
  17. @-2
  18. fang  jmp @1
  19. bite  dat 1000
  20. @0
  21. start mov #(spin-bite),@bite
  22.       sub bite,@bite  ;adjust address of fang
  23.       sub #1,bite
  24.       mov fang,@bite
  25.       add #7,bite
  26. *
  27.       cmp #500,nprc   ;have we caught anybody?
  28.       jmp start       ;nope.
  29. *
  30. * the enemy has been caught, and is currently
  31. * being drained of energy.  So start the
  32. * process of erasing the world.
  33. *
  34.       mov #100,bite  ;start near here.
  35. erase mov #0,@bite   ;erase everything and
  36.       add #1,bite    ;hope he dies before we
  37.       jmp erase      ;kill ourselves
  38.  
  39.     
  40.